home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 2
/
Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso
/
Aminet
/
gfx
/
edit
/
hlp206d.lha
/
hlplusdemo
/
Rexx
/
cropscreen.hl
< prev
next >
Wrap
Text File
|
1992-06-22
|
521b
|
20 lines
/* HamLab Plus function to crop to the current visible screen boundaries
*/
/* get the display attributes from HL+ */
'GETATTR DISPLAY STEM DISP'
/* If the visible width (or height) is zero, it means the display screen
* is not open, so don't do anything.
*/
if disp.visible.width = 0 then exit 5
/* set the boundaries */
'OUTPUTCROP' 'UL' disp.visible.ulx||','||disp.visible.uly 'WIDTH' disp.visible.width 'HEIGHT' disp.visible.height
/* redisplay with the new boundaries (not strictly necessary) */
'DISPLAY'